home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU17.ARC / AUTOSTART PLUS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.5 KB  |  136 lines
  1. 10 REM *******************************
  2. 20 REM *     AUTOSTART C-64 PLUS     *
  3. 30 REM *******************************
  4. 40 POKE643,PEEK(45):POKE55,PEEK(45):POKE644,PEEK(46)+3:POKE56,PEEK(46)+3:CLR
  5. 42 PRINTCHR$(14)"[147][201]NSTRUCTIONS (Y/N)":
  6. 43 GETA$:IFA$<>"Y"ANDA$<>"N"THEN43
  7. 44 IFA$="Y"THENGOSUB1000
  8. 50 PRINT"    [147]  *  *  *  [193]UTOSTART [195]64 [208]LUS  *  *  *  "
  9. 60 C$="                                      ":O$=CHR$(0)
  10. 61 PRINT"[196]EVICENUMBER: ";PEEK(186);:INPUT"[157][157][157][157]";DV
  11. 70 PRINT"[196]ATACHECKING[157][157][157][157][157][157][157][157][157][157][157][157]";:GOSUB460
  12. 80 RESTORE:OPEN15,DV,15:FORX=0TO112:READA:POKE828+X,A:NEXT
  13. 90 A$="[197]NTER [211]OURCEFILENAME":GOSUB370:SF$=T$
  14. 100 A$="[197]NTER [212]ARGETFILENAME":GOSUB370:TF$=T$
  15. 110 PRINT"":A$="[194]ASICPROGRAM ":GOSUB420:BA$=T$
  16. 120 IFBA$="Y"THENPRINT""C$:PRINTC$:SA=42926:NF$="N":GOTO150
  17. 130 PRINT:A$="[211]TARTADDRESS ":GOSUB440:SA=T:IFSA>65535THENPRINT"[145][145][145]":GOTO130
  18. 140 A$="[206]EWFLAG":GOSUB420:NF$=T$
  19. 150 PRINT:A$="[210]ESTORE-PROTECT":GOSUB420:RS$=T$
  20. 160 A$="[211]TOP-PROTECT   ":GOSUB420:SS$=T$
  21. 170 PRINT"[208]ASSWORD            ";:CW$="":INPUTCW$
  22. 180 IFLEN(CW$)>10THENPRINT"[145][145]":GOTO170
  23. 190 PRINT"":A$="[207]KAY":GOSUB420:IFT$="N"THENPRINT"":GOTO90
  24. 200 PRINT:FORX=1TO40:PRINT"-";:NEXT:INPUT"[201]NSERT [211]OURCE-[196]ISK";T$
  25. 210 PRINT"[145]"C$:PRINT#15,"I0":PRINT"[145][204]OADING:";:OPEN1,DV,2,SF$+",P,R":GET#1,L1$,L2$
  26. 220 GOSUB390:SYS831:GOSUB390:CLOSE1:INPUT"[146][201]NSERT [212]ARGET-[196]ISK";T$
  27. 230 PRINT"[145]"C$:PRINT#15,"I0":PRINT"[145][211]AVING :";:OPEN1,DV,2,"@0:"+TF$+",P,W":GOSUB390
  28. 240 FORX=0TO257:READA:PRINT#1,CHR$(A);:NEXT
  29. 250 S1=INT(SA/256):S2=SA-S1*256:PRINT#1,CHR$(S2);CHR$(S1);
  30. 260 A0=ASC(L1$+O$)+ASC(L2$+O$)*256:A1=PEEK(251)+PEEK(252)*256
  31. 270 A2=1+PEEK(643)+PEEK(644)*256:A3=(A1-A2)+A0:P1=INT(A3/256):P2=A3-P1*256
  32. 280 PRINT#1,CHR$(P2);CHR$(P1);
  33. 290 A=237:IFRS$="Y"THENA=225
  34. 300 PRINT#1,CHR$(A);:A=49:IFSS$="Y"THENA=52
  35. 310 PRINT#1,CHR$(A);:A=0:IFNF$="Y"THENA=1
  36. 320 PRINT#1,CHR$(A);:IFCW$=""THENPRINT#1,CHR$(0)"1234567890";:GOTO340
  37. 330 PRINT#1,CW$CHR$(0);:IFLEN(CW$)<10THENPRINT#1,LEFT$(C$,10-LEN(CW$));
  38. 340 SYS828:GOSUB390:CLOSE1:PRINT:A$="[210]ESTART [208]ROGRAM":GOSUB420:CLOSE15
  39. 350 IFT$="Y"THENRUN
  40. 360 SYS64738
  41. 370 T$="":PRINTA$;:INPUTT$:IFT$=""ORLEN(T$)>16THENPRINT"[145][145]":GOTO370
  42. 380 RETURN
  43. 390 INPUT#15,A,B$,C,D:PRINT""A;B$;C;D,
  44. 400 IFA<2THENRETURN
  45. 410 FORX=1TO15:CLOSEX:NEXT:PRINT:PRINT"?[196]ISK-[197]RROR";:FORX=1TO1500:NEXT:RUN
  46. 420 T$="":PRINTA$" (Y/N)";:INPUTT$:IFT$<>"Y"ANDT$<>"N"THENPRINT"[145][145]":GOTO420
  47. 430 RETURN
  48. 440 T$="":PRINTA$;:INPUTT$:T=VAL(T$):IFT$=""ORT=0THENPRINT"[145][145]":GOTO440
  49. 450 RETURN
  50. 460 P1=15862:S=0:FORX=0TO112:READA:S=S+A:NEXT:IFS<>P1THEN480
  51. 470 P2=32966:P=1:S=0:FORX=0TO257:READA:S=S+A:NEXT:IFS=P2THENRETURN
  52. 480 PRINT"?DATAERROR"P+1,"CHECKSUM:"S
  53. 490 DATA76,121,3,173,131,2,24,105,1
  54. 500 DATA133,251,173,132,2,105,0,133,252,162,1
  55. 510 DATA32,198,255,169,253,37,144,133,144,32,225
  56. 520 DATA255,32,207,255,160,48,120,132,1,160,0
  57. 530 DATA145,251,160,55,132,1,88,36,144,112,57
  58. 540 DATA230,251,208,222,230,252,208,218,162,1,32
  59. 550 DATA201,255,160,48,120,132,1,160,0,177,251
  60. 560 DATA160,55,132,1,88,73,255,32,210,255,32
  61. 570 DATA225,255,165,251,208,2,198,252,198,251,165
  62. 580 DATA251,205,131,2,208,219,165,252,205,132,2
  63. 590 DATA208,212,76,204,255
  64. 600 REM
  65. 610 REM
  66. 620 DATA168,2,238,32,208,76,168,2,174,170,3
  67. 630 DATA134,174,172,171,3,132,175,134,45,132,46
  68. 640 DATA32,112,3,144,251,32,239,237,32,66,246
  69. 650 DATA169,0,141,6,128,32,21,253,32,83,228
  70. 660 DATA173,173,3,141,20,3,173,172,3,141,40
  71. 670 DATA3,173,174,3,240,3,32,68,166,169,0
  72. 680 DATA76,152,3,3,255,165,174,201,186,240,65
  73. 690 DATA96,83,80,83,32,83,79,70,84,87,65
  74. 700 DATA82,69,139,227,131,164,124,165,26,167,228
  75. 710 DATA167,134,174,1,2,3,50,76,72,178,0
  76. 720 DATA49,234,102,254,168,2,74,243,145,242,14
  77. 730 DATA242,80,242,51,243,87,241,202,241,237,2
  78. 740 DATA62,241,47,243,102,254,165,244,237,245,162
  79. 750 DATA10,189,143,3,157,0,128,202,208,247,169
  80. 760 DATA0,133,153,170,134,198,134,251,189,175,3
  81. 770 DATA240,17,32,62,241,240,251,166,251,221,175
  82. 780 DATA3,208,230,232,230,251,208,234,170,160,245
  83. 790 DATA238,32,208,238,33,208,232,208,247,200,208
  84. 800 DATA244,76,174,2,169,253,37,144,133,144,32
  85. 810 DATA19,238,73,255,160,0,145,174,165,174,208
  86. 820 DATA2,198,175,198,174,36,144,80,2,56,36
  87. 830 DATA24,96,168,2,168,2,195,194,205,56,48
  88. 840 DATA141,0,8,32,113,168,32,51,165,32,167
  89. 850 DATA3,76,84,168,76
  90. 1000 POKE 53280,0 :POKE 53281,8 :PRINT CHR$(14 )CHR$(147);
  91. 1010 PRINT" [144]**** aUTOSTART pLUS iNSTRUCTIONS[146] ****
  92. 1020 [129] Z[178]1 [164] 40:[153]"-";:[130]
  93. 1030 [153]"aUTOSTART pLUS CONVERTS YOUR FILES INTO
  94. 1040 PRINT
  95. 1050 PRINT"AUTOSTART FILES, WHICH MUST BE LOADED
  96. 1060 [153]
  97. 1070 [153]"AFTERWARDS WITH LOAD"[199](34)"FILENAME"[199](34)",8,1.
  98. 1080 PRINT
  99. 1090 PRINT"yOU CAN PROTECT YOUR FILES BY ADDING A
  100. 1100 [153]
  101. 1110 [153]"PASSWORD. tHIS PASSWORD MUST BE ENTERED
  102. 1120 PRINT
  103. 1130 PRINT"WHEN LOADING THE FILE (ATTENTION: THE
  104. 1140 [153]
  105. 1150 [153]"PROGRAM DOES NOT ASK FOR IT, YOU MUST
  106. 1160 PRINT
  107. 1170 PRINT"TYPE IT IN AFTER THE MESSAGE "CHR$(34)"LOADING"CHR$(34)").";
  108. 1180 PRINT
  109. 1190 PRINT"iF THE PASSWORD WAS CORRECT, THE SCREEN
  110. 1200 [153]
  111. 1210 [153]"BLINKS FOR A SECOND AND THEN THE FILE
  112. 1220 PRINT
  113. 1230 PRINT"IS LOADED.
  114. 1240 [153][166]13)"press any key
  115. 1250 GETA$:IFA$=""THEN1250
  116. 1260 PRINTCHR$(147);
  117. 1265 PRINT"[144][212]HE NUMBER OF CHARACTERS IN THE PASSWORD
  118. 1266 [153]"IS 10 AT MOST.":[153]
  119. 1270 [153]"ATNS AN EXTRA PROTECTION, YOU CAN ALSO
  120. 1280 PRINT
  121. 1290 PRINT"DISABLE THE RESTORE AND STOP KEYS.
  122. 1300 [153]
  123. 1310 [153]"fINALLY ONE HINT: DON'T FORGET YOUR
  124. 1320 PRINT
  125. 1330 PRINT"PASSWORDS, OR YOU WILL NEVER BE ABLE
  126. 1340 [153]
  127. 1350 [153]"TO LOAD YOUR FILES AGAIN. tHE BEST WAY
  128. 1360 PRINT
  129. 1370 PRINT"IS TO KEEP AN UNPROTECTED COPY IN A
  130. 1380 [153]
  131. 1390 [153]"SAFE PLACE.
  132. 1400 PRINT:PRINT:PRINT:PRINT
  133. 1410 PRINTSPC(13)"press any key
  134. 1420 [161]A$:[139]A$[178]""[167]1420
  135. 1430 [153][199](147):[142]
  136.